inherited FormReProcessaCredito: TFormReProcessaCredito
  Left = 487
  Top = 329
  Caption = 'Re-Processa Cr'#233'dito'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 16
  inherited panel2: TPanel
    inherited BtnExec: TBitBtn
      OnClick = BtnExecClick
    end
  end
  inherited pnBg: TPanel
    object Label6: TLabel
      Left = 21
      Top = 28
      Width = 67
      Height = 16
      Caption = 'Cliente (F8)'
    end
    object DBLCBCliente: TDBLookupComboBox
      Tag = 20
      Left = 18
      Top = 47
      Width = 495
      Height = 22
      Ctl3D = False
      KeyField = 'CLI_CODIGO'
      ListField = 'CLI_RAZAO'
      ListSource = DataSource1
      ParentCtl3D = False
      TabOrder = 0
    end
  end
  object cdsReprocessamento: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCadastro'
    Left = 216
    Top = 128
  end
  object dspReprocessamento: TDataSetProvider
    DataSet = QReprocessamento
    Constraints = True
    Left = 184
    Top = 128
  end
  object QReprocessamento: TQuery
    DatabaseName = 'base'
    Left = 152
    Top = 128
  end
  object dsReprocessamento: TDataSource
    AutoEdit = False
    DataSet = cdsReprocessamento
    Left = 120
    Top = 128
  end
  object dsCamposPesquisa: TDataSource
    Left = 216
    Top = 162
  end
  object DSCliente: TDataSource
    DataSet = QCliente
    Left = 184
    Top = 162
  end
  object QPesquisa: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      
        'Select PlanoContas.estrutura as estrutura,PlanoContas.Descricao ' +
        'as Descricao, Cont_Corr_Descricao as Conta, Lanc_Codigo as lanca' +
        'mento,Lanc_Data as data, Lanc_Documento as Documento,'
      
        'Lanc_Historico as Historico, lanc_Cheque as Cheque,sum(Lanc_Valo' +
        'r) as Valor'
      ''
      
        'From  PlanoContas Inner join (Lancamento Inner join ContaCorrent' +
        'e on  Lanc_Conta =Cont_Corr_Codigo) on PlanoContas.Codigo = Lanc' +
        '_Plano '
      ''
      'Group  By'
      
        'PlanoContas.estrutura ,PlanoContas.Descricao, Cont_Corr_Descrica' +
        'o, Lanc_Codigo,Lanc_Data, Lanc_Documento,'
      'Lanc_Historico,lanc_Cheque'
      ';')
    Left = 152
    Top = 162
  end
  object DSPesquisa: TDataSource
    DataSet = QPesquisa
    Left = 120
    Top = 163
  end
  object QCliente: TQuery
    DatabaseName = 'base'
    Left = 152
    Top = 192
  end
  object DataSource1: TDataSource
    DataSet = DMGestao.QCliente
    Left = 32
    Top = 162
  end
end
